home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
SHELLS
/
SZ2
/
INPUT2.VIR
< prev
next >
Wrap
Text File
|
1992-08-31
|
792b
|
26 lines
{|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
INIT
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||}
procedure TGenericApp.PostInit ;
{$IFDEF code}{$I input.src}{$ENDIF}
var
D : PDialog ;
R : TRect ;
begin
FillChar ( DataArray , SizeOf ( DataArray ) , #0 ) ;
D := New ( PForm , Init ( R , '' ) ) ;
{$IFDEF code}
CopyDialog ( MakeDialog ,
D ) ;
{$ELSE}
CopyDialog ( PDIALOG ( RezFile^.Get ( 'DIALOG_INPUT' ) ) ,
D ) ;
{$ENDIF}
SetStaticText ( D , FALSE ) ;
SetBorder ( CRT.Blue ) ;
Desktop^.Insert ( D ) ;
ForceEvent ( evCommand , cmFirst ) ; { to show Rec # }
end ;